home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / Picticon1_4.lha / Picticon / Source / mod / fonts.e < prev    next >
Text File  |  1995-06-07  |  1KB  |  40 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE    'graphics','graphics/text','graphics/gfx'
  5. MODULE    'mod/compare'
  6.  
  7. PROC fontsize2(rast,str,textfont2:PTR TO textfont,style)
  8.     DEF w=0,h=0,xor=0
  9.     DEF textextent:PTR TO textextent
  10.     NEW textextent
  11.     IF ((textfont2<>0) AND (rast<>0))
  12.         xor:=xor OR (IF ((textfont2.style AND 1)<>(style AND 1)) THEN 1 ELSE 0)
  13.         xor:=xor OR (IF ((textfont2.style AND 2)<>(style AND 2)) THEN 2 ELSE 0)
  14.         xor:=xor OR (IF ((textfont2.style AND 4)<>(style AND 4)) THEN 4 ELSE 0)
  15.         SetFont(rast,textfont2)
  16.         SetSoftStyle(rast,xor,7)
  17.         TextExtent(rast,str,StrLen(str),textextent)
  18.  
  19.         w:=Abs(textextent.extent.minx)+Abs(textextent.extent.maxx)+1
  20.         h:=Abs(textextent.extent.miny)+Abs(textextent.extent.maxy)+1
  21.  
  22.  
  23. /*        IF xor AND FSF_BOLD THEN w:=w+1
  24.         IF xor AND FSF_UNDERLINED THEN w:=w+2
  25.         IF xor AND FSF_ITALIC THEN w:=w+4*/
  26.     ENDIF
  27.     END textextent
  28. ENDPROC w,h
  29.  
  30. PROC biggest(rast,tags,textfont,style)
  31.     DEF w=0,h=0,nw,nh
  32.     WHILE Long(tags)<>0
  33.         nw,nh:=fontsize2(rast,Long(tags),textfont,style)
  34.         w:=bigger(w,nw)
  35.         h:=bigger(h,nh)
  36.         tags:=tags+4
  37.     ENDWHILE
  38. ENDPROC w,h
  39.  
  40.